home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / lines.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.9 KB  |  60 lines
  1. 230  CLS
  2. 240  ' walking lines program - from BYTE magazine
  3. 250  ' converted to IBM by Grant Irani - Fallston, MD
  4. 260  ' additional conversion by Will Fastie
  5. 270  ' last edit:  22 Dec 81
  6. 280  DEFINT A-Z
  7. 290  GOSUB 700
  8. 300  RANDOMIZE VAL(RIGHT$(TIME$,2))
  9. 310  CLS
  10. 320  BACKTINT=0:PALETTE=0
  11. 330  KEY (1) ON: ON KEY (1) GOSUB 610
  12. 340  KEY (2) ON: ON KEY (2) GOSUB 640
  13. 350  SCREEN 1,0
  14. 360  KEY (10) ON: ON KEY (10) GOSUB 670
  15. 370  COLOR BACKTINT,PALETTE
  16. 380  DIM LINES(150,4)
  17. 390  DEF FNRAND(LIMIT)=INT(RND(1)*LIMIT)+1
  18. 400  X1=FNRAND(320)-1:Y1=FNRAND(200)-1:DX1=FNRAND(11)-6:DY1=FNRAND(11)-6
  19. 410  X2=FNRAND(320)-1:Y2=FNRAND(200)-1:DX2=FNRAND(11)-6:DY2=FNRAND(11)-6
  20. 420  TINT=1
  21. 430  IX=0 'index into lines
  22. 440  CNT=0 ' number of lines
  23. 450  CHGCNT=FNRAND(250)
  24. 460  LINE (X1,Y1)-(X2,Y2),TINT
  25. 470  IX=(IX+1)MOD 150
  26. 480  IF CNT=150 THEN LINE (LINES(IX,0),LINES(IX,1))-(LINES(IX,2),LINES(IX,3)),BACKGRND
  27. 490  LINES(IX,0)=X1:LINES(IX,1)=Y1:LINES(IX,2)=X2:LINES(IX,3)=Y2
  28. 500  IF CNT<150 THEN CNT=CNT+1
  29. 510  CHGCNT=CHGCNT-1
  30. 520  X1=X1+DX1:IF X1<0 OR X1>319 THEN DX1=-DX1:X1=X1+DX1
  31. 530  Y1=Y1+DY1:IF Y1<0 OR Y1>199 THEN DY1=-DY1:Y1=Y1+DY1
  32. 540  X2=X2+DX2:IF X2<0 OR X2>319 THEN DX2=-DX2:X2=X2+DX2
  33. 550  Y2=Y2+DY2:IF Y2<0 OR Y2>199 THEN DY2=-DY2:Y2=Y2+DY2
  34. 560  IF CHGCNT>0 GOTO 460
  35. 570  ' X1=FNRAND(320)-1:Y1=FNRAND(200)-1:X2=FNRAND(320)-1:Y2=FNRAND(200)-1
  36. 580  DX1=FNRAND(11)-6:DY1=FNRAND(11)-6:DX2=FNRAND(11)-6:DY2=FNRAND(11)-6
  37. 590  TINT=((TINT+1)MOD 3)+1
  38. 600  GOTO 450
  39. 610  BACKTINT=(BACKTINT+1)MOD 16
  40. 620  COLOR BACKTINT,PALETTE
  41. 630  RETURN
  42. 640  PALETTE=PALETTE+1
  43. 650  COLOR BACKTINT,PALETTE
  44. 660  RETURN
  45. 670  ' restore monochrome display
  46. 680  GOSUB 760
  47. 690  END
  48. 700  REM DISPC - Simple program to setup Color/Graphics Display
  49. 710  REM       - from IBM's "C" program on Dealer Demo
  50. 720  KEY OFF: CLS
  51. 730  WIDTH 80: DEF SEG=0: A=PEEK(&H410): POKE &H410,(A AND &HCF) OR &H20
  52. 740  WIDTH  40 :SCREEN 1: SCREEN 0: LOCATE ,,1,6,7
  53. 750  RETURN
  54. 760  REM DISPM - Simple program to setup Monochrome Display
  55. 770  REM       - from IBM's "B" program on Dealer Demo
  56. 780  KEY OFF: CLS
  57. 790  WIDTH 40: DEF SEG=0: A=PEEK(&H410): POKE &H410,A OR &H30
  58. 800  WIDTH  80: LOCATE ,,1,12,13: SCREEN 0,0,0
  59. 810  RETURN
  60.